home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / misc / notes / english / notes.pprx < prev    next >
Text File  |  1999-04-19  |  19KB  |  715 lines
  1. /*
  2. @B Notes V. 1.5 @P@ICopyright A.Faust 1999
  3.  This Genie prints notes
  4. */
  5.  
  6. /* History
  7.  
  8. Version 1.0 (January 1999)
  9.     - first release
  10.  
  11. Version 1.1. (2.2.99)
  12.     -some errors removed in the #?.files
  13.     -notationsrule for the "notefiles" altered
  14.      (in the case of - "n" - natural sign
  15.       like the other in one line)
  16.  
  17. Version 1.2  (10.2.99)
  18.     -removed a error if givein is a b-accidental (example:"AB3")
  19.     -simplified the routine for accidentals
  20.     -added the possibility of writing single notelines with one
  21.      notekey
  22.     -multiple questions at the beginning collected in one requester
  23.     -expanded the range of the violinkey
  24.  
  25. Version 1.3 (26.2.99)
  26.    -small bug in "basskey.rexx" (all second notelines where overjumped
  27.     if 1-lined notesystem was choosed)
  28.    -repetition of the choosen notesystem an smallest noteworth now in
  29.     one requester
  30.    -removed unnecessary magnifications jump
  31.    -the position of the first note in the line now will be set dynamical
  32.     dependent on the number of accidentials
  33. Version 1.4 (1.3.99)
  34.    -small bug removed
  35. Version 1.5 (8.3.99)
  36.    -added possibility to merge two eight or sixteenth notes
  37. */
  38.  
  39.  
  40. address command
  41.  
  42. 'execute C:AssignNotenDruck'
  43.  
  44.  
  45. /*
  46.    The file "AssignNotePrint" in the C: directory shall be written
  47.    with a normal texteditor, like ed or AE(Articel Editor from ProPage).
  48.    There will be assigned where the Genie looks for the Notefiles.
  49.    Also will be assigned the directory, where are the genies from ProPage
  50.    are placed.
  51.  
  52.    example:
  53.    assign Notes:   Work:MyNoteFileDirectory
  54.    assign Genies:  DTP:ProPage/ARexx
  55.                    |_______________________|
  56.  
  57.                    please insert your paths here
  58.  
  59. */
  60.  
  61. call SafeEndEdit.rexx()
  62. call ppm_AutoUpdate(0)
  63. call ppm_SetWireframe(0)
  64. notex=0
  65. notey=0
  66. call ppm_SetLineWeight(0.25)
  67. call ppm_SetMagMode(250)
  68. call ppm_SetBoxOutlines(0)
  69.  
  70. signal on halt
  71. signal on break_c
  72. signal on break_e
  73. signal on break_d
  74.  
  75.  
  76. start:
  77. do
  78.   neu = ppm_GetUserText(2, "New begin? (ALL WILL BE DELETED !!!!) Nothing=Break y/n")
  79.     if neu == "Y" then neu = "y"
  80.     if neu == "N" then neu = "n"
  81.  
  82.   select
  83.     when neu == "y" then
  84.         do
  85.         sicher =
  86.         call ppm_New()
  87.         call ppm_SetUnits(2)
  88.         call ppm_SetMagMode(250)
  89.         call ppm_SetFont('(CG)Times')
  90.         pgnm = ppm_CreatePage(1, 1, 0)
  91.         call ppm_SetPageType(pgnm, 4)
  92.         call ppm_SetRulerType(4)
  93.         call ppm_SetBoxLock(0, 0)
  94.         call ppm_DeleteBox(0)
  95.  
  96.         /* Headline */
  97.  
  98.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  99.         call ppm_SetSize(20)
  100.         call ppm_SetStyle(U)
  101.         call ppm_SetJustification(2)
  102.         call ppm_TextIntoBox(haedln, 'Title')
  103.         end
  104.     when neu == "n" then notenlinien()
  105.     otherwise exit_msg("User Break!")
  106.   end
  107.  
  108. notenlinien:
  109.   cr = '0a'x
  110.   form = "notelines ?    (y/n):y"cr"2/1 system (2/1v/1b):2"cr"accidentals (1#=1 #):"cr"time       (4/4=4 4):4 4"cr"v_iol/b_ass  [f_ile]:v"
  111.   eingabe = ppm_GetForm("Please give in ...          ", 5, form)
  112.   parse var eingabe res '0a'x systemart '0a'x vorz '0a'x takt '0a'x violbass
  113.   select
  114.     when systemart == '2' then NOP
  115.     when systemart == '1b' then NOP
  116.     when systemart == '1B' then systemart = '1b'
  117.     when systemart == '1v' then NOP
  118.     when systemart == '1V' then systemart = '1v'
  119.     otherwise exit_msg("Error in the input! Break!!!")
  120.   end
  121.   if res == '' then res = 'y'
  122.   if res == 'J' then res = 'y'
  123.   if res == 'y' then
  124.   do
  125.  
  126.         call ppm_SetUnits(2)
  127.         call ppm_SetMagMode(250)
  128.         call ppm_SetFont('(CG)Times')
  129.         pgnm = ppm_CurrentPage()
  130.         call ppm_SetPageType(pgnm, 4)
  131.         call ppm_SetRulerType(4)
  132.         call ppm_SetBoxLock(0, 0)
  133.         call ppm_DeleteBox(0)
  134.  
  135.         /* headline */
  136.  
  137.         haedln = ppm_CreateBox(4, 0.2, 11.5, 1.2, 0)
  138.         call ppm_SetSize(20)
  139.         call ppm_SetStyle(U)
  140.         call ppm_SetJustification(2)
  141.         call ppm_TextIntoBox(haedln, 'Title')
  142.  
  143.         /* Autor */
  144.  
  145.         autor = ppm_CreateBox(13, 0.9, 6.5, 0.64, 0)
  146.         call ppm_SetSize(12)
  147.         call ppm_SetStyle(U)
  148.         call ppm_SetJustification(1)
  149.         call ppm_TextIntoBox(autor, "Autor: © Noname")
  150.  
  151.  
  152.      /* Draw notelines */
  153.  
  154.      do a=1 to 12
  155.        do b=1 to 5
  156.           call ppm_DrawLine(0, a*2+((b-1)/5), 19.5, a*2+((b-1)/5))
  157.        end
  158.      end
  159.  
  160.      /* Notekey and bracket at front */
  161.  
  162.      if systemart == '1v' then
  163.      do
  164.         call ppm_SetFont('(CG)Noten')
  165.  
  166.         violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  167.         call ppm_SetStyle(N)
  168.         call ppm_SetJustification(0)
  169.         call ppm_SetSize(45)
  170.         call ppm_TextIntoBox(violschl, 't')
  171.  
  172.         do c=1 to 11
  173.           call ppm_CloneBox(violschl, 0, (c*2))
  174.         end
  175.      end
  176.  
  177.      if systemart == '1b' then
  178.      do
  179.         call ppm_SetFont('(CG)Noten')
  180.  
  181.         bassschl = ppm_CreateBox(0.034, 1.88, 1.1, 1.1, 0)
  182.         call ppm_SetStyle(N)
  183.         call ppm_SetJustification(0)
  184.         call ppm_SetSize(30)
  185.         call ppm_TextIntoBox(bassschl, 'b')
  186.  
  187.         do c=1 to 11
  188.           call ppm_CloneBox(bassschl, 0, (c*2))
  189.         end
  190.      end
  191.  
  192.      if systemart == '2' then
  193.      do
  194.         call ppm_SetFont('(CG)Noten')
  195.  
  196.         violschl = ppm_CreateBox(0, 1.55, 1, 1.6, 0)
  197.         call ppm_SetStyle(N)
  198.         call ppm_SetJustification(0)
  199.         call ppm_SetSize(45)
  200.         call ppm_TextIntoBox(violschl, 't')
  201.  
  202.         bassschl = ppm_CreateBox(0.034, 3.88, 1.1, 1.1, 0)
  203.         call ppm_SetSize(30)
  204.         call ppm_TextIntoBox(bassschl, 'b')
  205.  
  206.         call ppm_SetLineWeight(4)
  207.         vl = ppm_DrawLine(0, 1.98, 0, 4.82)
  208.  
  209.         call ppm_SetLineWeight(2)
  210.         vo = ppm_DrawLine(-0.07, 2.08, 0.303, 1.7627)
  211.         vu = ppm_DrawLine(-0.07, 4.74, 0.303, 5.052)
  212.  
  213.         do c=1 to 5
  214.           call ppm_CloneBox(violschl, 0, (c*4))
  215.           call ppm_CloneBox(bassschl, 0, (c*4))
  216.           call ppm_CloneBox(vl, 0, (c*4))
  217.           call ppm_CloneBox(vo, 0, (c*4))
  218.           call ppm_CloneBox(vu, 0, (c*4))
  219.         end
  220.      end
  221.      vorzeichen()
  222.   end
  223.   else
  224.   do
  225.    if res == 'N' then res = 'n'
  226.    if res == 'n' then vorzeichen()
  227.    else start()
  228.   end
  229. end
  230.  
  231. noteneingabe:
  232.  if violbass == '' then exit_msg("Error in the input! BREAK!!!")
  233.  resa = word(violbass,1)
  234.  resb = word(violbass,2)
  235.  if resa=='V' then resa = 'v'
  236.  if resa=='B' then resa = 'b'
  237.  if resb=='F' then resb = 'f'
  238.  select
  239.    when resa=='v' then violschl()
  240.    when resa=='b' then basschl()
  241.    otherwise noteneingabe()
  242.  end
  243.  
  244. violschl:
  245.  do
  246.  call ppm_SetFont('(CG)Noten')
  247.  select
  248.     when resb='' then
  249.     do
  250.      address command
  251.      rx 'Genies:Violinkey.rexx'
  252.     end
  253.     when resb='f' then
  254.     do
  255.      address command
  256.      rx 'Genies:Violinkey.file'
  257.     end
  258.     otherwise noteneingabe()
  259.  end
  260.  exit
  261.  end
  262.  
  263. basschl:
  264.  do
  265.  call ppm_SetFont('(CG)Noten')
  266.  select
  267.     when resb='' then
  268.     do
  269.      address command
  270.      rx 'Genies:Basskey.rexx'
  271.     end
  272.     when resb='f' then
  273.     do
  274.      address command
  275.      rx 'Genies:Basskey.file'
  276.     end
  277.     otherwise noteneingabe()
  278.  end
  279.  exit
  280.  end
  281.  
  282. exit
  283.  
  284. vorzeichen:
  285.  
  286. if vorz == "" then
  287. do
  288.   k = 0
  289.   takt()
  290. end
  291.  
  292. else
  293. do
  294.    call ppm_SetFont('(CG)Noten')
  295.    call ppm_SetSize(20)
  296.    zahl = word(vorz, 1)
  297.    if zahl >6 then vorzeichen()
  298.    art  = word(vorz, 2)
  299.    if art == 'B' then art = 'b'
  300.    yy = 0.28
  301.    j = 0
  302.    k = zahl
  303.  select
  304.    when art == 'b' then
  305.    do
  306.    art = 'f'
  307.       if systemart == '2' then
  308.       do
  309.         do i=1 to 6
  310.            if zahl== 1 then
  311.              do
  312.                call vorzeichenbox 1, (1.95+j)
  313.                call vorzeichenbox 1, (4.15+j)
  314.              end
  315.  
  316.            if zahl == 2 then
  317.              do
  318.                call vorzeichenbox 1, (1.95+j)
  319.                call vorzeichenbox 1, (4.15+j)
  320.                call vorzeichenbox 1.2, (1.65+j)
  321.                call vorzeichenbox 1.2, (3.85+j)
  322.              end
  323.  
  324.            if zahl == 3 then
  325.              do
  326.                call vorzeichenbox 1, (1.95+j)
  327.                call vorzeichenbox 1, (4.15+j)
  328.                call vorzeichenbox 1.2, (1.65+j)
  329.                call vorzeichenbox 1.2, (3.85+j)
  330.                call vorzeichenbox 1.4, (2.05+j)
  331.                call vorzeichenbox 1.4, (4.25+j)
  332.              end
  333.  
  334.            if zahl == 4 then
  335.              do
  336.              call vorzeichenbox 1, (1.95+j)
  337.              call vorzeichenbox 1, (4.15+j)
  338.              call vorzeichenbox 1.2, (1.65+j)
  339.              call vorzeichenbox 1.2, (3.85+j)
  340.              call vorzeichenbox 1.4, (2.05+j)
  341.              call vorzeichenbox 1.4, (4.25+j)
  342.              call vorzeichenbox 1.6, (1.75+j)
  343.              call vorzeichenbox 1.6, (3.95+j)
  344.              end
  345.  
  346.            if zahl == 5 then
  347.              do
  348.              call vorzeichenbox 1, (1.95+j)
  349.              call vorzeichenbox 1, (4.15+j)
  350.              call vorzeichenbox 1.2, (1.65+j)
  351.              call vorzeichenbox 1.2, (3.85+j)
  352.              call vorzeichenbox 1.4, (2.05+j)
  353.              call vorzeichenbox 1.4, (4.25+j)
  354.              call vorzeichenbox 1.6, (1.75+j)
  355.              call vorzeichenbox 1.6, (3.95+j)
  356.              call vorzeichenbox 1.8, (2.15+j)
  357.              call vorzeichenbox 1.8, (4.35+j)
  358.              end
  359.  
  360.            if zahl == 6 then
  361.              do
  362.                call vorzeichenbox 1, (1.95+j)
  363.                call vorzeichenbox 1, (4.15+j)
  364.                call vorzeichenbox 1.2, (1.65+j)
  365.                call vorzeichenbox 1.2, (3.85+j)
  366.                call vorzeichenbox 1.4, (2.05+j)
  367.                call vorzeichenbox 1.4, (4.25+j)
  368.                call vorzeichenbox 1.6, (1.75+j)
  369.                call vorzeichenbox 1.6, (3.95+j)
  370.                call vorzeichenbox 1.8, (2.15+j)
  371.                call vorzeichenbox 1.8, (4.35+j)
  372.                call vorzeichenbox 2.0, (1.85+j)
  373.                call vorzeichenbox 2.0, (4.05+j)
  374.              end
  375.            j=j+4
  376.         end
  377.       end
  378.       if systemart == '1b' then
  379.       do
  380.         do i=1 to 12
  381.            if zahl== 1 then
  382.              do
  383.                call vorzeichenbox 1, (2.15+j)
  384.              end
  385.  
  386.            if zahl == 2 then
  387.              do
  388.                call vorzeichenbox 1, (2.15+j)
  389.                call vorzeichenbox 1.2, (1.85+j)
  390.              end
  391.  
  392.            if zahl == 3 then
  393.              do
  394.                call vorzeichenbox 1, (2.15+j)
  395.                call vorzeichenbox 1.2, (1.85+j)
  396.                call vorzeichenbox 1.4, (2.25+j)
  397.              end
  398.  
  399.            if zahl == 4 then
  400.              do
  401.                call vorzeichenbox 1, (2.15+j)
  402.                call vorzeichenbox 1.2, (1.85+j)
  403.                call vorzeichenbox 1.4, (2.25+j)
  404.                call vorzeichenbox 1.6, (1.95+j)
  405.              end
  406.  
  407.            if zahl == 5 then
  408.              do
  409.                call vorzeichenbox 1, (2.15+j)
  410.                call vorzeichenbox 1.2, (1.85+j)
  411.                call vorzeichenbox 1.4, (2.25+j)
  412.                call vorzeichenbox 1.6, (1.95+j)
  413.                call vorzeichenbox 1.8, (2.35+j)
  414.              end
  415.  
  416.            if zahl == 6 then
  417.              do
  418.                call vorzeichenbox 1, (2.15+j)
  419.                call vorzeichenbox 1.2, (1.85+j)
  420.                call vorzeichenbox 1.4, (2.25+j)
  421.                call vorzeichenbox 1.6, (1.95+j)
  422.                call vorzeichenbox 1.8, (2.35+j)
  423.                call vorzeichenbox 2.0, (2.05+j)
  424.              end
  425.            j=j+2
  426.         end
  427.       end
  428.       if systemart == '1v' then
  429.       do
  430.        do i=1 to 12
  431.           if zahl== 1 then
  432.             do
  433.               call vorzeichenbox 1, (1.95+j)
  434.             end
  435.  
  436.           if zahl == 2 then
  437.             do
  438.               call vorzeichenbox 1, (1.95+j)
  439.               call vorzeichenbox 1.2, (1.65+j)
  440.             end
  441.  
  442.           if zahl == 3 then
  443.             do
  444.               call vorzeichenbox 1, (1.95+j)
  445.               call vorzeichenbox 1.2, (1.65+j)
  446.               call vorzeichenbox 1.4, (2.05+j)
  447.             end
  448.  
  449.           if zahl == 4 then
  450.             do
  451.             call vorzeichenbox 1, (1.95+j)
  452.             call vorzeichenbox 1.2, (1.65+j)
  453.             call vorzeichenbox 1.4, (2.05+j)
  454.             call vorzeichenbox 1.6, (1.75+j)
  455.             end
  456.  
  457.           if zahl == 5 then
  458.             do
  459.             call vorzeichenbox 1, (1.95+j)
  460.             call vorzeichenbox 1.2, (1.65+j)
  461.             call vorzeichenbox 1.4, (2.05+j)
  462.             call vorzeichenbox 1.6, (1.75+j)
  463.             call vorzeichenbox 1.8, (2.15+j)
  464.             end
  465.  
  466.           if zahl == 6 then
  467.             do
  468.               call vorzeichenbox 1, (1.95+j)
  469.               call vorzeichenbox 1.2, (1.65+j)
  470.               call vorzeichenbox 1.4, (2.05+j)
  471.               call vorzeichenbox 1.6, (1.75+j)
  472.               call vorzeichenbox 1.8, (2.15+j)
  473.               call vorzeichenbox 2.0, (1.85+j)
  474.             end
  475.           j=j+2
  476.        end
  477.       end
  478.    end
  479.  
  480.    when art == '#' then
  481.    do
  482.    art = 's'
  483.        if systemart == '2' then
  484.        do
  485.          do i=1 to 6
  486.             if zahl == 1 then
  487.               do
  488.                 call vorzeichenbox 1, (1.67+j)
  489.                 call vorzeichenbox 1, (3.87+j)
  490.               end
  491.  
  492.             if zahl == 2 then
  493.               do
  494.                 call vorzeichenbox 1, (1.67+j)
  495.                 call vorzeichenbox 1, (3.87+j)
  496.                 call vorzeichenbox 1.2, (1.97+j)
  497.                 call vorzeichenbox 1.2, (4.17+j)
  498.               end
  499.  
  500.             if zahl == 3 then
  501.               do
  502.                 call vorzeichenbox 1, (1.67+j)
  503.                 call vorzeichenbox 1, (3.87+j)
  504.                 call vorzeichenbox 1.2, (1.97+j)
  505.                 call vorzeichenbox 1.2, (4.17+j)
  506.                 call vorzeichenbox 1.4, (1.57+j)
  507.                 call vorzeichenbox 1.4, (3.77+j)
  508.               end
  509.  
  510.             if zahl == 4 then
  511.               do
  512.                 call vorzeichenbox 1, (1.67+j)
  513.                 call vorzeichenbox 1, (3.87+j)
  514.                 call vorzeichenbox 1.2, (1.97+j)
  515.                 call vorzeichenbox 1.2, (4.17+j)
  516.                 call vorzeichenbox 1.4, (1.57+j)
  517.                 call vorzeichenbox 1.4, (3.77+j)
  518.                 call vorzeichenbox 1.6, (1.87+j)
  519.                 call vorzeichenbox 1.6, (4.07+j)
  520.               end
  521.  
  522.             if zahl == 5 then
  523.               do
  524.                 call vorzeichenbox 1, (1.67+j)
  525.                 call vorzeichenbox 1, (3.87+j)
  526.                 call vorzeichenbox 1.2, (1.97+j)
  527.                 call vorzeichenbox 1.2, (4.17+j)
  528.                 call vorzeichenbox 1.4, (1.57+j)
  529.                 call vorzeichenbox 1.4, (3.77+j)
  530.                 call vorzeichenbox 1.6, (1.87+j)
  531.                 call vorzeichenbox 1.6, (4.07+j)
  532.                 call vorzeichenbox 1.8, (2.17+j)
  533.                 call vorzeichenbox 1.8, (4.37+j)
  534.               end
  535.  
  536.             if zahl == 6 then
  537.               do
  538.                 call vorzeichenbox 1, (1.67+j)
  539.                 call vorzeichenbox 1, (3.87+j)
  540.                 call vorzeichenbox 1.2, (1.97+j)
  541.                 call vorzeichenbox 1.2, (4.17+j)
  542.                 call vorzeichenbox 1.4, (1.57+j)
  543.                 call vorzeichenbox 1.4, (3.77+j)
  544.                 call vorzeichenbox 1.6, (1.87+j)
  545.                 call vorzeichenbox 1.6, (4.07+j)
  546.                 call vorzeichenbox 1.8, (2.17+j)
  547.                 call vorzeichenbox 1.8, (4.37+j)
  548.                 call vorzeichenbox 2.0, (1.77+j)
  549.                 call vorzeichenbox 2.0, (3.97+j)
  550.               end
  551.             j=j+4
  552.          end
  553.        end
  554.        if systemart == '1b' then
  555.        do
  556.          do i=1 to 12
  557.             if zahl == 1 then
  558.               do
  559.                 call vorzeichenbox 1, (1.87+j)
  560.               end
  561.  
  562.             if zahl == 2 then
  563.               do
  564.                 call vorzeichenbox 1, (1.87+j)
  565.                 call vorzeichenbox 1.2, (2.17+j)
  566.               end
  567.  
  568.             if zahl == 3 then
  569.               do
  570.                 call vorzeichenbox 1, (1.87+j)
  571.                 call vorzeichenbox 1.2, (2.17+j)
  572.                 call vorzeichenbox 1.4, (1.77+j)
  573.               end
  574.  
  575.             if zahl == 4 then
  576.               do
  577.                 call vorzeichenbox 1, (1.87+j)
  578.                 call vorzeichenbox 1.2, (2.17+j)
  579.                 call vorzeichenbox 1.4, (1.77+j)
  580.                 call vorzeichenbox 1.6, (2.07+j)
  581.               end
  582.  
  583.             if zahl == 5 then
  584.               do
  585.                 call vorzeichenbox 1, (1.87+j)
  586.                 call vorzeichenbox 1.2, (2.17+j)
  587.                 call vorzeichenbox 1.4, (1.77+j)
  588.                 call vorzeichenbox 1.6, (2.07+j)
  589.                 call vorzeichenbox 1.8, (2.37+j)
  590.               end
  591.  
  592.             if zahl == 6 then
  593.               do
  594.                 call vorzeichenbox 1, (1.87+j)
  595.                 call vorzeichenbox 1.2, (2.17+j)
  596.                 call vorzeichenbox 1.4, (1.77+j)
  597.                 call vorzeichenbox 1.6, (2.07+j)
  598.                 call vorzeichenbox 1.8, (1.37+j)
  599.                 call vorzeichenbox 2.0, (2.97+j)
  600.               end
  601.             j=j+2
  602.          end
  603.        end
  604.        if systemart == '1v' then
  605.        do
  606.          do i=1 to 12
  607.             if zahl == 1 then
  608.               do
  609.                 call vorzeichenbox 1, (1.67+j)
  610.               end
  611.  
  612.             if zahl == 2 then
  613.               do
  614.                 call vorzeichenbox 1, (1.67+j)
  615.                 call vorzeichenbox 1.2, (1.97+j)
  616.               end
  617.  
  618.             if zahl == 3 then
  619.               do
  620.                 call vorzeichenbox 1, (1.67+j)
  621.                 call vorzeichenbox 1.2, (1.97+j)
  622.                 call vorzeichenbox 1.4, (1.57+j)
  623.               end
  624.  
  625.             if zahl == 4 then
  626.               do
  627.                 call vorzeichenbox 1, (1.67+j)
  628.                 call vorzeichenbox 1.2, (1.97+j)
  629.                 call vorzeichenbox 1.4, (1.57+j)
  630.                 call vorzeichenbox 1.6, (1.87+j)
  631.               end
  632.  
  633.             if zahl == 5 then
  634.               do
  635.                 call vorzeichenbox 1, (1.67+j)
  636.                 call vorzeichenbox 1.2, (1.97+j)
  637.                 call vorzeichenbox 1.4, (1.57+j)
  638.                 call vorzeichenbox 1.6, (1.87+j)
  639.                 call vorzeichenbox 1.8, (2.17+j)
  640.               end
  641.  
  642.             if zahl == 6 then
  643.               do
  644.                 call vorzeichenbox 1, (1.67+j)
  645.                 call vorzeichenbox 1.2, (1.97+j)
  646.                 call vorzeichenbox 1.4, (1.57+j)
  647.                 call vorzeichenbox 1.6, (1.87+j)
  648.                 call vorzeichenbox 1.8, (2.17+j)
  649.                 call vorzeichenbox 2.0, (1.77+j)
  650.               end
  651.             j=j+2
  652.          end
  653.        end
  654.    end
  655.    otherwise exit_msg("Error in the input! BREAK!!!")
  656.  end
  657. takt()
  658. end
  659.  
  660. takt:
  661. do
  662.  call ppm_SetFont('(CG)Times')
  663.  call ppm_SetSize(16)
  664.  
  665.  if takt ~= '' then
  666.   do
  667.    oben  = WORD(takt, 1)
  668.    unten = WORD(takt, 2)
  669.    if unten == '' then exit_msg("Error in the input! BREAK!!!")
  670.    id = ppm_CreateBox(1.15+(k*0.2), 2,  0.3, 0.6, 0)
  671.    call ppm_TextIntoBox(id, oben)
  672.    id = ppm_CreateBox(1.15+(k*0.2), 2.4,  0.3, 0.6, 0)
  673.    call ppm_TextIntoBox(id, unten)
  674.    if systemart == '2' then
  675.      do
  676.        id = ppm_CreateBox(1.15+(k*0.2), 4,  0.3, 0.6, 0)
  677.        call ppm_TextIntoBox(id, oben)
  678.        id = ppm_CreateBox(1.15+(k*0.2), 4.4,  0.3, 0.6, 0)
  679.        call ppm_TextIntoBox(id, unten)
  680.      end
  681.   end
  682.  else NOP
  683.  call ppm_SetFont('(CG)Noten')
  684.  call ppm_SetSize(20)
  685.  call ppm_UpdateScreen()
  686.  noteneingabe()
  687. end
  688.  
  689. vorzeichenbox:
  690. do
  691.     parse arg bx,by
  692.     id = ppm_CreateBox(bx, by,  0.35, 0.75, 0)
  693.     call ppm_TextIntoBox(id, art)
  694. return
  695. end
  696.  
  697. break_d:
  698. break_e:
  699. break_c:
  700. halt:
  701.     call exit_msg("User aborted Genie!")
  702.  
  703. exit_msg: procedure
  704. do
  705.     parse arg message
  706.  
  707.     if message ~= '' then
  708.     call ppm_Inform(1,message,)
  709.  
  710.     call ppm_ClearStatus()
  711.     call ppm_AutoUpdate(1)
  712.     exit
  713. end
  714.  
  715.